home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_Tix.idb / usr / freeware / lib / tix4.1 / StdShell.tcl.z / StdShell.tcl
Encoding:
Text File  |  1999-01-26  |  997 b   |  45 lines
  1. # StdShell.tcl --
  2. #
  3. #    Standard Dialog Shell.
  4. #
  5. # Copyright (c) 1996, Expert Interface Technologies
  6. #
  7. # See the file "license.terms" for information on usage and redistribution
  8. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  9. #
  10.  
  11. tixWidgetClass tixStdDialogShell {
  12.     -classname TixStdDialogShell
  13.     -superclass tixDialogShell
  14.     -method {}
  15.     -flag   {
  16.     -cached
  17.     }
  18.     -configspec {
  19.     {-cached cached Cached ""}
  20.     }
  21. }
  22.  
  23. proc tixStdDialogShell:ConstructWidget {w} {
  24.     upvar #0 $w data
  25.  
  26.     tixChainMethod $w ConstructWidget
  27.     set data(w:btns)   [tixStdButtonBox $w.btns]
  28.     set data(w_tframe) [frame $w.tframe]
  29.  
  30.     pack $data(w_tframe) -side top -expand yes -fill both
  31.     pack $data(w:btns) -side bottom -fill both
  32.  
  33.     tixCallMethod $w ConstructTopFrame $data(w_tframe)
  34. }
  35.  
  36.  
  37. # Subclasses of StdDialogShell should override this method instead of
  38. # ConstructWidget.
  39. #
  40. # Override : always
  41. # chain    : before
  42. proc tixStdDialogShell:ConstructTopFrame {w frame} {
  43.     # Do nothing
  44. }
  45.